home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / wmapdemo / data.z / SETBMP.PAS < prev    next >
Pascal/Delphi Source File  |  1996-03-09  |  1KB  |  63 lines
  1. unit Setbmp;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls, Sysutils;
  7.  
  8. type
  9.   TSetBMPDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     HelpBtn: TBitBtn;
  13.     Bevel1: TBevel;
  14.     Edit1: TEdit;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Edit2: TEdit;
  18.     Preview: TCheckBox;
  19.     Label3: TLabel;
  20.     Label4: TLabel;
  21.     procedure OKBtnClick(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.     phgap : ^integer;
  25.     pvgap : ^integer;
  26.     pbPreview : ^boolean;
  27.   public
  28.     { Public declarations }
  29.     constructor Create(AOwner:TComponent; var iwidth,iheight : integer; var bPrev:boolean);
  30.   end;
  31.  
  32. var
  33.   SetBMPDlg: TSetBMPDlg;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38. constructor TSetBMPDlg.Create(AOwner:TComponent; var iwidth,iheight : integer; var bPrev:boolean);
  39. begin
  40.   inherited Create(AOwner);
  41.   phgap := Addr(iwidth);
  42.   pvgap := Addr(iheight);
  43.   pbPreview := Addr(bPrev);
  44.   Edit1.text := inttostr(iwidth);
  45.   Edit2.text := inttostr(iheight);
  46. end;
  47.  
  48. procedure TSetBMPDlg.OKBtnClick(Sender: TObject);
  49. begin
  50.   try
  51.     phgap^ := strtoint(Edit1.text);
  52.     pvgap^ := strtoint(Edit2.text);
  53.     if preview.checked then pbPreview^ := true else pbPreview^ := false;
  54.   except
  55.     On EConvertError do begin
  56.       ActiveControl := edit1;
  57.       modalresult := mrNone;
  58.     end;
  59.   end;
  60. end;
  61.  
  62. end.
  63.